home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO001.dsk / FIN / SALVAGE.VALUE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  697b  |  22 lines
  1. 10  PRINT "SALVAGE VALUE"
  2. 20  PRINT 
  3. 30  PRINT "ORIGINAL PRICE";
  4. 40  INPUT P
  5. 50  PRINT "DEPRECIATION RATE";
  6. 60  INPUT I
  7. 70  PRINT "--(ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM)--"
  8. 80  PRINT "YEARS";
  9. 90  INPUT Y
  10. 99  REM  - CALCULATE ANOTHER SALVAGE VALUE?
  11. 100  IF Y = 0  THEN 140
  12. 108  REM  - CALCULATE SALVAGE VALUE BY FORMULA, ROUND OFF, PRINT.
  13. 109  REM  - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULATIONS
  14. 110  PRINT "VALUE = $"; INT(100 *P *(1 -I/100) ^Y +.5)/100
  15. 120  PRINT 
  16. 129  REM  - RETURN FOR NEXT YEAR NUMBER
  17. 130  GOTO 80
  18. 139  REM  - RESTART OR END PROGRAM?
  19. 140  PRINT "MORE DATA (1=YES, 0=NO)!;
  20. 150  INPUT X
  21. 160  IF X = 1  THEN 20
  22. 170  PRINT "<CTRL-D>RUNHELLO"